home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / Backup / DIAVO3_2.DMS / in.adf / Install Diavolo < prev    next >
Encoding:
Text File  |  1995-09-18  |  45.9 KB  |  1,275 lines
  1. ; Install-Script for Diavolo-Backup
  2. ;
  3. ; © 1993-1995 Martin Korndörfer
  4. ;
  5. ; $VER:DiavoloInstall 2.6 (06-Aug-95)
  6. ;
  7. ; Version 2.6
  8. ; - Tries to install MagicWB demo only if the file is present.
  9. ;   For mailbox update.
  10. ;
  11. ; Version 2.5
  12. ; - MagicWB is optionally installed
  13. ;
  14. ; Version 2.4
  15. ; - Copies Installer to c:
  16. ; - Sets language tool type of all program icons
  17. ; - Sets various Diavolo and Install Diavolo tooltypes
  18. ; - Welcome message only printed on real installation
  19. ;
  20. ; Version 2.3
  21. ; - Copies the catalogs to LOCALE:, too, so that DBSchedDaemon finds its
  22. ;   catalog
  23. ; - Copies Devs:Keymaps and input.prefs into boot disk for german keyboard
  24. ;   layout
  25. ; - Only cybergraphics, cyberintuition and cyberlayers.library are copied onto
  26. ;   the bootdisk
  27. ;
  28. ; Version 2.2
  29. ; - Don't try to copy 68040.library if not present
  30. ; - Tool Types set correctly
  31. ; - DBSchedDaemon can be copied into WBStartup
  32. ; - Installer doesn't fail quietly if a FILE Diavolo exists
  33. ;   in the dest. dir.
  34. ; - loadwb_old will be copies onto the emergency boot disk instead of loadwb
  35. ;   if it exists. Workaround for DOpus 5.
  36. ; - in the line endcli>nil: the colon was missing.
  37. ; - Palette.Prefs are copied now, too
  38. ;
  39. ; Version 2.1
  40. ; - Some textual corrections
  41. ;
  42. ; Version 2.0
  43. ; - New release for DB 2.0
  44. ;
  45. ; Version 1.26
  46. ; - Added 68040.library and SetPatch
  47. ;
  48. ; Version 1.22
  49. ;
  50. ;   Initial Release
  51.  
  52.  
  53. ; ** "Locale" Section. For each supported language, all texts must be set correctly
  54. ; **
  55. ;
  56.  
  57. (if (= @language "deutsch")
  58.     (
  59.         (set @abort-button "Installation abbrechen"
  60.         )
  61.  
  62.         (set @app-name "Diavolo Backup 3.0"
  63.         )
  64.  
  65.         (set #welcome "Diavolo Backup 3.0 Installation"
  66.         )
  67.  
  68.         (set #get-destination-prompt "Bitte wählen Sie, wo das Diavolo Verzeichnis erstellt werden soll"
  69.         )
  70.  
  71.         (set #get-destination-help (cat "Bitte wählen Sie in diesem Dialog auf welcher Partition oder in welchem "
  72.                                         "Verzeichnis die Diavolo Schublade eingerichtet werden soll.\n\n"
  73.                                         @askdir-help
  74.                                    )
  75.         )
  76.  
  77.         (set #copying-archive "Kopiere Haupt-Archiv ..."
  78.         )
  79.  
  80.         (set #copying-install-script "Kopiere Installscript ..."
  81.         )
  82.  
  83.         (set #Unpack-Main "Entpacke Haupt-Archiv ..."
  84.         )
  85.  
  86.         (set #Unpack-MWBDemo "Entpacke MagicWB-Demo ..."
  87.         )
  88.  
  89.         (set #unpack-error (cat "Konnte Archiv nicht entpacken! Bitte machen Sie auf Ihrem Laufwerk Platz oder "
  90.                                 "wählen Sie ein anderes Ziel und starten Sie die Installation neu."
  91.                            )
  92.         )
  93.  
  94.         (set #mwb-detected-prompt (cat "MagicWB 2.0 gefunden.\nSie können entweder MWB-kompatible 8-Farb-Icons "
  95.                                        "oder die standard System-Icons für Diavolo verwenden."
  96.                                   )
  97.         )
  98.  
  99.         (set #mwb-detected-help (cat "Das Installationsprogramm hat festgestellt, daß die MagicWB 2.0 auf Ihrem "
  100.                                      "Rechner installiert ist. Sie sollten deshalb auch für Diavolo die Icons im "
  101.                                      "MagicWB-Stil verwenden. Wenn Sie wollen, können Sie aber auch die normalen "
  102.                                      "4-farb Icons installieren lassen.\n\n"
  103.                                      @askchoice-help
  104.                                 )
  105.         )
  106.  
  107.         (set #mwb-notdetected-prompt (cat "MagicWB 2.0 ist nicht installiert.\nUnter bestimmten Umständen können Sie "
  108.                                           "dennoch die 8-farb Icons verwenden (siehe Hilfe), in aller Regel werden Sie "
  109.                                           "aber die Standard System-Icons installieren müssen."
  110.                                   )
  111.         )
  112.  
  113.         (set #mwb-notdetected-help (cat "Das Installationsprogramm konnte die MagicWB 2.0 nicht auf Ihrem System finden. "
  114.                                      "Die mitgelieferten 8-farb Icons funktionieren nur mit der MagicWB 2.0 korrekt. "
  115.                                      "Ausser Sie verwenden einen Screen mit exakt 8 Farben und der MagicWB 1.x Palette, "
  116.                                      "in diesem Fall können Sie ebenfalls die 8-farb Icons installieren.\nIn allen anderen "
  117.                                      "Fällen sollten Sie auf die Standard System-Icons zurückgreifen.\n\n"
  118.                                      @askchoice-help
  119.                                 )
  120.         )
  121.  
  122.         (set #mwb-0 "8-farb MWB Icons")
  123.  
  124.         (set #mwb-1 "4-farb Standard Icons")
  125.  
  126.         (set #Unpack-StdIcons "Entpacke Standard-Icon Archiv ..."
  127.         )
  128.  
  129.         (set #Unpack-MWBIcons "Entpacke MagicWB-Icon Archiv ..."
  130.         )
  131.  
  132.         (set #prompt-MWB (cat"Diavolo Backup verwedet die Optik der MagicWB von Martin Huttenloher. "
  133.                              "Um einen Eindruck von diesem Produkt zu bekommen, sollten Sie einen Blick "
  134.                              "auf die Demo der neuesten Version werfen. Es werden dabei keinerlei Veränderungen "
  135.                              "an Ihrem System vorgenommen."
  136.                          )
  137.         )
  138.  
  139.         (set #label-MWB "MagicWB 2.0 Demo kopieren"
  140.         )
  141.  
  142.         (set #help-MWB (cat "Das Aussehen von Diavolo Backup orientiert sich stark am MagicWB-Stil. MagicWB ist "
  143.                             "ein Programm zur optischen Aufwertung der Oberfläche des Amigas (Workbench). Falls "
  144.                             "Sie MagicWB noch nicht kennen oder noch nicht registriert sind, sollten Sie einen "
  145.                             "Blick auf diese Demonstration werfen. Sie enthält alle aktuellen Informationen über "
  146.                             "die neueste Version von MagicWB.\n\nDie Demo (etwa 300k) wird in einem extra Verzeichnis "
  147.                             "innerhalb der Diavolo-Schublade installiert ohne irgendwelche anderen Daten oder Bereiche in "
  148.                             "Ihrem System zu beeinflussen. Um die Demo zu entfernen, brauchen Sie lediglich das "
  149.                             "Verzeichnis zu löschen.\n\n"
  150.                             @askoptions-help
  151.                         )
  152.         )
  153.  
  154.         (set #Update-Lib-Prompt "Die Library\n%s\nist in diesem System bereits installiert. Soll sie ausgetauscht werden?"
  155.         )
  156.  
  157.         (set #Update-Lib-Help (cat "Es ist nicht notwendig die von Diavolo benötigten Libraries im globalen LIBS: "
  158.                                    "Verzeichnis zu installieren, da sie auch in Diavolos eigenem libs Verzeichnis "
  159.                                    "gefunden werden.\n"
  160.                                    "Aber diese Library ist in Ihrem System bereits installiert. Um zu vermeiden, "
  161.                                    "daß eine veraltete Version dieser Library verwendet wird, sollten Sie prüfen, "
  162.                                    "ob die Version, die bei Diavolo mitgeliefert wird, aktueller ist und sie in "
  163.                                    "diesem Fall erneuern lassen.\n\n"
  164.                                    @copylib-help
  165.                               )
  166.         )
  167.  
  168.         (set #Update-XPK-Lib-Prompt (cat "The XPK Kompressions-Library\n%s\nist in diesem System bereits installiert. Soll sie "
  169.                                      "ausgetauscht werden?"
  170.                                 )
  171.         )
  172.  
  173.         (set #Create-Dirs "Erstelle Verzeichnisse ...")
  174.  
  175.         (set #Checking-Libs "Prüfe auf veraltete Libraries im System ...")
  176.  
  177.         (set #Correcting-Icons "Korrigiere Einträge in den Icon-Informationen ...")
  178.  
  179.         (set #copy-scheddaemon-prompt (cat "Wenn Sie automatische Sicherungen zu bestimmten Zeiten mit Hilfe des "
  180.                                            "'DBScheduler's ausführen lassen wollen, so muß dazu das Programm "
  181.                                            "'DBSchedDaemon' in Ihre WBStartup Schublade kopiert werden.\n\n"
  182.                                            "DBSchedDaemon in die WBStartup Schublade kopieren?"
  183.                                       )
  184.         )
  185.  
  186.         (set #copy-scheddaemon-help (cat "Das Programm 'DBSchedDaemon' kümmert sich darum, daß die Zeiteinträge, "
  187.                                          "die Sie mit 'DBScheduler' erstellen können, überwacht werden und rechtzeitig "
  188.                                          "die gewünschten Sicherungen ausgeführt werden.\n\n Für weitere Informationen "
  189.                                          "beachten Sie bitte das Kapitel 'automatische Sicherungen' im Handbuch.\n\n"
  190.                                          @askbool-help
  191.                                     )
  192.         )
  193.  
  194.         (set #create-emergency-disk-prompt (cat "Soll eine Not-Bootdiskette erstellt werden?\n\n"
  195.                                                 "(Sehr zu empfehlen!)"
  196.                                            )
  197.         )
  198.  
  199.         (set #create-emergency-disk-help (cat "Damit Sie auch dann noch Ihre Daten restaurieren können, wenn Ihr "
  200.                                               "System nicht mehr selbständig startet, muß eine Not-Bootdiskette "
  201.                                               "erstellt werden. Mit dieser Diskette können Sie immer Ihr System "
  202.                                               "und Diavolo Backup starten, um so z.B. ein Backup zu restaurieren.\n\n"
  203.                                               @askbool-help
  204.                                          )
  205.         )
  206.  
  207.         (set #emergency-yes "Ja"
  208.         )
  209.  
  210.         (set #emergency-no "Nein"
  211.         )
  212.  
  213.         (set #format-select-prompt (cat "Für die Not-Bootdiskette wird eine leere Diskette benötigt.\n"
  214.                                         "Soll die Diskette formatiert werden?"
  215.                                    )
  216.         )
  217.  
  218.         (set #format-select-help (cat "Das Installprogramm formatiert auf Wunsch eine Diskette. Neue Disketten, "
  219.                                       "oder Disketten, die mit einem Fremdformat formatiert sind, müssen "
  220.                                       "vollständig formatiert werden. Disketten, die bereits für den Amiga "
  221.                                       "formatiert wurden, können mit 'Schnell formatieren' gelöscht werden. "
  222.                                       "Sollten Sie bereits eine leere, formatierte Diskette bereithalten, "
  223.                                       "können Sie das Formatieren auch vollständig überspringen.\n\n"
  224.                                       @askchoice-help
  225.                                  )
  226.         )
  227.  
  228.         (set #format-full "Vollständig formatieren"
  229.         )
  230.  
  231.         (set #format-quick "Schnell formatieren"
  232.         )
  233.  
  234.         (set #format-none "Nicht formatieren"
  235.         )
  236.  
  237.         (set #Ok-To-Format-prompt "Bitte legen Sie die zu formatierende Diskette in Laufwerk DF0 ein!"
  238.         )
  239.  
  240.         (set #Ok-To-Format-Help @askbool-help
  241.         )
  242.  
  243.         (set #format-yes "Formatieren"
  244.         )
  245.  
  246.         (set #format-no "Zurück"
  247.         )
  248.  
  249.         (set #formatting "Formatiere ..."
  250.         )
  251.  
  252.         (set #format-failed "Das Formatieren schlug fehl!"
  253.         )
  254.  
  255.         (set #install-failed "INSTALL df0: fehlgeschlagen"
  256.         )
  257.  
  258.         (set #copy-monitors-prompt "Welchen Monitortyp verwendet Ihr System?\n(Siehe Hilfe!!)"
  259.         )
  260.  
  261.         (set #copy-monitors-help (cat "Das Installationsprogramm versucht auf der Boot-Diskette den selben "
  262.                                       "Workbench-Screenmode einzustellen wie er in Ihrem System konfiguriert ist. "
  263.                                       "Das ist vorallem dann wichtig, wenn Ihr System die Standard-Amiga Screenmodi "
  264.                                       "nicht darstellen kann, weil Ihr Monitor z.B. erst ab 30 kHz synchronisiert.\n\n"
  265.                                       "Damit der Screenmodus auf der Bootdiskette funktioniert, muß die zugehörige "
  266.                                       "Monitordatei auf die Disk kopiert werden. Wählen Sie bitte *NUR* diesen einen "
  267.                                       "'Monitor' aus der Liste an. Mehr als einer wird wahrscheinlich nicht auf die "
  268.                                       "Diskette passen! Wenn Sie sich nicht sicher sind, welchen 'Monitor' Ihr System "
  269.                                       "verwendet, starten Sie bitte das ScreenMode-Prefs Programm. Das Kürzel vor dem "
  270.                                       "Doppelpunkt in der hervorgehobenen Zeile ist der Monitorname.\n\n"
  271.                                       "Anmerkung für CyberGraphics Benutzer: Das Installationsprogramm erkennt die "
  272.                                       "CyberGraphics Treiber und kopiert diese selbstständig. Bitte wählen Sie aus "
  273.                                       "der Liste der Monitore den entsprechenden CyberGraphics Monitor aus.\n\n"
  274.                                       "Anmerkung für Anwender anderer Grafikkartensysteme: Das Installationsprogramm "
  275.                                       "erkennt derzeit NUR die Cybergraphics Software. Die meisten anderen Emulationen "
  276.                                       "benötigen zudem zu viel Platz und passen nicht auf die Bootdiskette. Bitte stellen "
  277.                                       "Sie nach Möglichkeit einen Amiga-Screenmodus auf Ihrer Workbench ein, den Ihr "
  278.                                       "Monitor anzeigen kann, starten Sie dann das Installationsprogramm neu und geben "
  279.                                       "dann diesen Monitor bei der Abfrage an.\n\n"
  280.                                       @copyfiles-help
  281.                                  )
  282.         )
  283.  
  284.         (set #prefs-available (cat "Ihre aktuelle Diavolo Backup Konfiguration wurde auf die Bootdisk kopiert.\n\n"
  285.                                    "Wenn Sie auf Streamer sichern, beachten Sie bitte folgendes:\n\n"
  286.                                    "Beim Start von der Bootdiskette können Sie auf keine Kataloge zugreifen und auch "
  287.                                    "keine Kataloge (wieder-)herstellen, da auf der Diskette kein Platz dafür ist.\n"
  288.                                    "Sie können jedoch den Katalog-Pfad in den SCSI-Einstellungen auf die Festplatte "
  289.                                    "umlenken. Näheres ist im Handbuch beschrieben."
  290.                               )
  291.         )
  292.  
  293.         (set #prefs-not-available (cat "Es ist keine Konfiguration für Diavolo Backup vorhanden.\n\n"
  294.                                        "Wenn Sie auf Streamer sichern sollten Sie zunächst Diavolo Backup "
  295.                                        "konfigurieren und dann das Installationsprogramm erneut aufrufen um "
  296.                                        "eine aktualisierte Notbootdiskette zu erstellen."
  297.  
  298.                                   )
  299.         )
  300.  
  301.         (set #emergency-disk-finished "Die Diavolo Backup Not-Bootdiskette wurde erfolgreich erstellt."
  302.         )
  303.     )
  304. )
  305.  
  306. (if (= @language "english")
  307.     (
  308.         (set @abort-button "Cancel installation"
  309.         )
  310.  
  311.         (set @app-name "Diavolo Backup 3.0"
  312.         )
  313.  
  314.         (set #welcome "Diavolo Backup 3.0 installation"
  315.         )
  316.  
  317.         (set #get-destination-prompt "Please select a destination for the Diavolo drawer"
  318.         )
  319.  
  320.         (set #get-destination-help (cat "Use this dialogue to select the partition or the directory where you "
  321.                                         "want the Diavolo drawer to be created.\n\n"
  322.                                         @askdir-help
  323.                                    )
  324.         )
  325.  
  326.         (set #copying-archive "Copying main archive ..."
  327.         )
  328.  
  329.         (set #copying-install-script "Copying install script ..."
  330.         )
  331.  
  332.         (set #Unpack-Main "Unpacking main archive ..."
  333.         )
  334.  
  335.         (set #Unpack-MWBDemo "Unpacking MagicWB demo ..."
  336.         )
  337.  
  338.         (set #prompt-MWB (cat"Diavolo Backup uses the look and feel of Martin Huttenloher's MagicWB. "
  339.                              "To get an impression of this product you should take a look at this "
  340.                              "presentation of the latest version of MagicWB. Your system will remain unchanged "
  341.                              "when installing the demo."
  342.                          )
  343.         )
  344.  
  345.         (set #label-MWB "Install MagicWB 2.0 demo"
  346.         )
  347.  
  348.         (set #help-MWB (cat "MagicWB's graphical style plays an important part in the layout of Diavolo Backup. "
  349.                             "MagicWB is a product to enhance the appearance of your workbench screen. If you don't "
  350.                             "know MagicWB or if you haven't yet registered, then take a look at this demonstration. "
  351.                             "It provides you with all the latest information about the new version of MagicWB.\n\n"
  352.                             "The demo (about 300k) will be installed into a seperate drawer in the Diavolo directory, "
  353.                             "without interfering with any other data or parts of your system. To remove the demo you "
  354.                             "would just have to delete the drawer. \n\n"
  355.                             @askoptions-help
  356.                        )
  357.         )
  358.  
  359.         (set #unpack-error (cat "Could not unpack archive! Make some room on your drive or choose another destination "
  360.                                 "and try again."
  361.                            )
  362.         )
  363.  
  364.         (set #mwb-detected-prompt (cat "MagicWB 2.0 detected.\nYou can use either MWB-compatible 8-color icons "
  365.                                        "or the system standard 4-color icons for Diavolo"
  366.                                   )
  367.         )
  368.  
  369.         (set #mwb-detected-help (cat "MagicWB 2.0 was detected by the install program. You should use the MagicWB-Style "
  370.                                      "icons for Diavolo, too. But you can also install the standard system look icons, "
  371.                                      "if you wish.\n\n".
  372.                                      @askchoice-help
  373.                                 )
  374.         )
  375.  
  376.         (set #mwb-notdetected-prompt (cat "MagicWB 2.0 not detected.\nThough you might be able to use the 8-color icons "
  377.                                           "(see help for details) it's more likely that you have to install the "
  378.                                           "standard system look icons instead.\n\n"
  379.                                   )
  380.         )
  381.  
  382.         (set #mwb-notdetected-help (cat "MagicWB 2.0 could not be found by the install program. The 8-color icons in this "
  383.                                         "package are designed for MagicWB 2.0, but they also work with MagicWB 1.x if you "
  384.                                         "use a screen with 8 colors exactly. In all other cases you will have to install "
  385.                                         "the standard system look icons.\n\n"
  386.                                         @askchoice-help
  387.                                 )
  388.         )
  389.  
  390.         (set #mwb-0 "8-color MWB icons")
  391.  
  392.         (set #mwb-1 "4-color standard icons")
  393.  
  394.         (set #Unpack-StdIcons "Unpacking standard icon archive ..."
  395.         )
  396.  
  397.         (set #Unpack-MWBIcons "Unpacking MagicWB icon archive ..."
  398.         )
  399.  
  400.         (set #Update-Lib-Prompt "The Library\n%s\nis already installed in your system. Do you want to replace it?"
  401.         )
  402.  
  403.         (set #Update-Lib-Help (cat "It's not neccessary to install Diavolo's libraries in your global LIBS: directory, "
  404.                                    "as they will also be found in Diavolo's own libs directory.\n"
  405.                                    "But this library is already installed in your system. To avoid using an "
  406.                                    "obsolete version of that library, you should check if the version supplied "
  407.                                    "with Diavolo is newer and, in that case, choose to replace your old version.\n\n"
  408.                                    @copylib-help)
  409.         )
  410.  
  411.         (set #Update-XPK-Lib-Prompt "The XPK compression Library\n%s\nis already installed in your system. Do you want to replace it?"
  412.         )
  413.  
  414.         (set #Create-Dirs "Creating subdirectories ...")
  415.  
  416.         (set #Checking-Libs "Checking for obsolete libraries in the system ...")
  417.  
  418.         (set #Correcting-Icons "Correcting entries in the icon info pages ...")
  419.  
  420.         (set #copy-scheddaemon-prompt (cat "If you want backups to be created automatically at given times using the "
  421.                                            "'DBScheduler' it's neccessary to copy the program 'DBSchedDaemon' into "
  422.                                            "your WBStartup drawer.\n\n"
  423.                                            "Copy DBSchedDaemon into the WBStartup drawer?"
  424.                                       )
  425.         )
  426.  
  427.         (set #copy-scheddaemon-help (cat "The program 'DBSchedDaemon' takes scansc the event entries created by "
  428.                                          "'DBScheduler' and takes care that the requested backups are created on time.\n\n"
  429.                                          "See the chapter 'automatic backups' in the manual for detailed information.\n\n"
  430.                                          @askbool-help
  431.                                     )
  432.         )
  433.  
  434.         (set #create-emergency-disk-prompt (cat "Do you want to create a emergency boot disk?\n\n"
  435.                                                 "(Recommended!)"
  436.                                            )
  437.         )
  438.  
  439.         (set #create-emergency-disk-help (cat "To be able to restore your data even when your system does not start "
  440.                                               "itself anymore, it's neccessary to create a emergency boot disk. "
  441.                                               "With this disk you can start your system anytime and start Diavolo "
  442.                                               "to restore a backup for example.\n\n"
  443.                                               @askbool-help
  444.                                          )
  445.         )
  446.  
  447.         (set #emergency-yes "Yes"
  448.         )
  449.  
  450.         (set #emergency-no "No"
  451.         )
  452.  
  453.         (set #format-select-prompt (cat "For the emergency boot disk a blank disk is required.\n"
  454.                                         "Do you want a disk to be formatted?"
  455.                                    )
  456.         )
  457.  
  458.         (set #format-select-help (cat "The install program can format a disk if you want to. New disks or "
  459.                                       "disks formatted with an alien format must be fully formated. Disks that "
  460.                                       "are already formatted for the Amiga can be cleared using the quick format. "
  461.                                       "If you have a blank, formatted disk ready you can skip the format procedure "
  462.                                       "entirely.\n\n"
  463.                                       @askchoice-help
  464.                                  )
  465.         )
  466.  
  467.         (set #format-full "Full format"
  468.         )
  469.  
  470.         (set #format-quick "Quick format"
  471.         )
  472.  
  473.         (set #format-none "Don't format"
  474.         )
  475.  
  476.         (set #Ok-To-Format-prompt "Please insert the disk to be formatted into drive DF0!"
  477.         )
  478.  
  479.         (set #Ok-To-Format-Help @askbool-help
  480.         )
  481.  
  482.         (set #format-yes "Format"
  483.         )
  484.  
  485.         (set #format-no "Back"
  486.         )
  487.  
  488.         (set #formatting "Formatting ..."
  489.         )
  490.  
  491.         (set #format-failed "The format procedure failed!"
  492.         )
  493.  
  494.         (set #install-failed "INSTALL df0: failed!"
  495.         )
  496.  
  497.         (set #copy-monitors-prompt "Which Monitor is used in your System?\n(See Help!!)"
  498.         )
  499.  
  500.         (set #copy-monitors-help (cat "The install program tries to configure the same screen mode on the boot disk "
  501.                                       "that is currently set in your system. This is especially important if your "
  502.                                       "system can't display standard amiga screenmodes, perhaps because your monitor "
  503.                                       "only synchronises with 30 kHz or more.\n\n"
  504.                                       "To make the screen mode work on your boot disk, it's neccessary to copy the "
  505.                                       "respective monitor file onto the disk. Please choose *ONLY* this one 'monitor' "
  506.                                       "from the list. More than one would probably not fit onto the disk! If you're "
  507.                                       "not sure which 'monitor' is used by your system, start the screen mode prefs "
  508.                                       "program. The name before the colon in the hilighted line is the name of your "
  509.                                       "'monitor'.\n\n"
  510.                                       "Note for CyberGraphics user: The install program recognizes the CyberCraphics "
  511.                                       "drivers and copies them automatically. Please choose the correct CyberGFX "
  512.                                       "monitor from the list.\n\n"
  513.                                       "Note for users of other graphic expansions: The install program currently "
  514.                                       "recognizes ONLY the CyberGraphics software. Most other emulations wouldn't even "
  515.                                       "fit on the boot disk anyhow. Please set the workbench screen mode to a native "
  516.                                       "Amiga mode that you can display on your monitor, restart the install program "
  517.                                       "and select this monitor from the list.\n\n"
  518.                                       @copyfiles-help
  519.                                  )
  520.         )
  521.  
  522.         (set #prefs-available (cat "Your current Diavolo Backup configuration was copied to the boot disk.\n\n"
  523.                                    "If you use a streamer device, please note that when you're starting with the "
  524.                                    "boot disk, you cannot access tape catalogs nor can you (re)create them, "
  525.                                    "because there's not enough space on the disk.\n"
  526.                                    "However, you can redirect the catalog path in the SCSI settings to your harddrive. "
  527.                                    "See the manual for details."
  528.                               )
  529.         )
  530.  
  531.         (set #prefs-not-available (cat "Diavolo Backup it not yet configured.\n\n"
  532.                                        "If you use a streamer device, you should first configure Diavolo Backup "
  533.                                        "and then start the installation program again to create a updated emergency "
  534.                                        "boot disk."
  535.                                   )
  536.         )
  537.  
  538.         (set #emergency-disk-finished "The Diavolo Backup emergency boot disk has been successfully created."
  539.         )
  540.     )
  541. )
  542.  
  543.  
  544. ; ** Start of Installation
  545. ;
  546. ;
  547.  
  548. (user 1)
  549.  
  550. ; ** Check if Diavolo is already installed. If not, install the compressed
  551. ; ** archives
  552. ;
  553.  
  554. (set Installed (exists "Diavolo")
  555. )
  556.  
  557. (if (not Installed)
  558.     (
  559.         (welcome)
  560.  
  561.         (set newdest (askdir (prompt #get-destination-prompt)
  562.                              (help #get-destination-help)
  563.                              (default @default-dest)
  564.                      )
  565.         )
  566.  
  567.         (set @default-dest newdest
  568.         )
  569.  
  570.         (set DBDest (tackon @default-dest "Diavolo")
  571.         )
  572.  
  573.         (if (not (= (exists DBDest) 2))
  574.             (
  575.                 (makedir DBDest
  576.                 )
  577.             )
  578.         )
  579.  
  580.         (foreach DBDest "~(#?.prefs)"
  581.                  (
  582.                     (if (< @each-type 0)
  583.                         (
  584.                             (delete (tackon DBDest @each-name)
  585.                                     (optional askuser)
  586.                             )
  587.                         )
  588.                     )
  589.                  )
  590.         )
  591.  
  592.         (copyfiles (prompt #copying-archive)
  593.                    (source "InstallData.run")
  594.                    (dest DBDest)
  595.         )
  596.  
  597.         (complete 50)
  598.  
  599.         (set @execute-dir DBDest
  600.         )
  601.  
  602.         (working #Unpack-Main)
  603.  
  604.         (set Fail (run (tackon DBDest "InstallData.run"
  605.                        )
  606.                   )
  607.         )
  608.  
  609.         (delete (tackon DBDest "InstallData.run"
  610.                 )
  611.         )
  612.  
  613.         (complete 70)
  614.  
  615.         (if (exists "LOCALE:" (noreq))
  616.             (
  617.                 (copyfiles (source (tackon DBDest "catalogs"))
  618.                            (dest "Locale:catalogs")
  619.                            (all)
  620.                            (optional force)
  621.                 )
  622.             )
  623.         )
  624.  
  625.         (if Fail
  626.             (
  627.                 (abort #unpack-error
  628.                 )
  629.             )
  630.         )
  631.  
  632.         (if (exists "env:MagicWB")
  633.             (
  634.                 (set UseStdIcons (askchoice (prompt #mwb-detected-prompt)
  635.                                             (help #mwb-detected-help)
  636.                                             (choices #mwb-0 #mwb-1)
  637.                                             (default 0)
  638.                                  )
  639.                 )
  640.             )
  641.             (
  642.                 (set UseStdIcons (askchoice (prompt #mwb-notdetected-prompt)
  643.                                             (help #mwb-notdetected-help)
  644.                                             (choices #mwb-0 #mwb-1)
  645.                                             (default 1)
  646.                                  )
  647.                 )
  648.             )
  649.         )
  650.  
  651.         (if UseStdIcons
  652.             (
  653.                 (working #Unpack-StdIcons)
  654.  
  655.                 (set Fail (run (tackon DBDest "StandardIcons.run"
  656.                                )
  657.                           )
  658.                 )
  659.             )
  660.             (
  661.                 (working #Unpack-MWBIcons)
  662.  
  663.                 (set Fail (run (tackon DBDest "MWBIcons.run"
  664.                                )
  665.                           )
  666.                 )
  667.             )
  668.         )
  669.  
  670.         (if Fail
  671.             (
  672.                 (abort #unpack-error
  673.                 )
  674.             )
  675.         )
  676.  
  677.         (delete (tackon DBDest "StandardIcons.run"
  678.                 )
  679.         )
  680.  
  681.         (delete (tackon DBDest "MWBIcons.run"
  682.                 )
  683.         )
  684.  
  685.         (if (exists "MagicWB-Demo.run")
  686.             (
  687.                 (if (askoptions (prompt #prompt-MWB)
  688.                                 (help #help-MWB)
  689.                                 (choices #label-MWB)
  690.                     )
  691.                     (
  692.                         (copyfiles (source "MagicWB-Demo.run")
  693.                                    (dest DBDest)
  694.                         )
  695.  
  696.                         (complete 80)
  697.  
  698.                         (working #Unpack-MWBDemo)
  699.  
  700.                         (set Fail (run (tackon DBDest "MagicWB-Demo.run"
  701.                                        )
  702.                                   )
  703.                         )
  704.  
  705.                         (delete (tackon DBDest "MagicWB-Demo.run"
  706.                                 )
  707.                         )
  708.                     )
  709.                     (
  710.                         (delete (tackon DBDest "MagicWB-Demo.info"
  711.                                 )
  712.                         )
  713.                     )
  714.                 )
  715.             )
  716.         )
  717.  
  718.         (complete 90)
  719.  
  720.         (copyfiles (prompt #copying-install-script)
  721.                    (source "Install Diavolo")
  722.                    (dest DBDest)
  723.         )
  724.  
  725.         (copyfiles (source "Installer")
  726.                    (dest DBDest)
  727.         )
  728.  
  729.         (complete 92)
  730.  
  731.         ; ** Create all directories if not already there
  732.         ;
  733.  
  734.         (working #Create-Dirs)
  735.  
  736.         (if (not (exists (tackon DBDest "Tape Catalogs")
  737.                  )
  738.             )
  739.             (
  740.                 (makedir (tackon DBDest "Tape Catalogs")
  741.                          (prompt #create-dir)
  742.                 )
  743.             )
  744.         )
  745.  
  746.         (if (exists (tackon DBDest "DBScheduler"))
  747.             (if (not (exists (tackon DBDest "SchedulerEvents")
  748.                      )
  749.                 )
  750.                 (
  751.                     (makedir (tackon DBDest "SchedulerEvents")
  752.                              (prompt #create-dir)
  753.                     )
  754.                 )
  755.             )
  756.         )
  757.  
  758.         (if (not (exists (tackon DBDest "SelectFilters")
  759.                  )
  760.             )
  761.             (
  762.                 (makedir (tackon DBDest "SelectFilters")
  763.                          (prompt #create-dir)
  764.                 )
  765.             )
  766.         )
  767.  
  768.         (if (not (exists (tackon DBDest "DefIcons")
  769.                  )
  770.             )
  771.             (
  772.                 (makedir (tackon DBDest "DefIcons")
  773.                          (prompt #create-dir)
  774.                 )
  775.             )
  776.         )
  777.  
  778.         (complete 93)
  779.  
  780.         ; ** Check if catalogs are installed in LOCALE: and delete them
  781.         ; ** (they should only be located in the DB directory and nowhere else!)
  782.         ;
  783.  
  784.         (working #Checking-libs)
  785.  
  786.         (if (exists "Locale:catalogs/deutsch/Diavolo.catalog"
  787.                     (noreq)
  788.             )
  789.             (
  790.                 (delete "Locale:catalogs/deutsch/Diavolo.catalog"
  791.                         (prompt #Delete-German-Catalog)
  792.                 )
  793.             )
  794.         )
  795.  
  796.         (if (exists "Locale:catalogs/français/Diavolo.catalog"
  797.                     (noreq)
  798.             )
  799.             (
  800.                 (delete "Locale:catalogs/français/Diavolo.catalog"
  801.                         (prompt #Delete-French-Catalog)
  802.                 )
  803.             )
  804.         )
  805.  
  806.         (complete 95)
  807.  
  808.         ; ** Check if libraries are installed, if yes replace old versions
  809.         ;
  810.         ;
  811.  
  812.         (set LibDir (tackon DBDest "libs")
  813.         )
  814.  
  815.         (foreach LibDir "~(asl|locale).library"
  816.             (
  817.                 (if (exists (tackon "LIBS:" @each-name)
  818.                     )
  819.                     (
  820.                         (copylib (prompt (#Update-Lib-Prompt @each-name))
  821.                                  (help #Update-Lib-Help)
  822.                                  (source (tackon LibDir @each-name))
  823.                                  (dest "LIBS:")
  824.                                  (optional nofail askuser)
  825.                                  (confirm)
  826.                         )
  827.                     )
  828.                 )
  829.             )
  830.         )
  831.  
  832.         (set LibDir (tackon LibDir "compressors")
  833.         )
  834.  
  835.         (foreach LibDir "#?.library"
  836.             (
  837.                 (if (exists (tackon "LIBS:compressors" @each-name)
  838.                     )
  839.                     (
  840.                         (copylib (prompt (#Update-XPK-Lib-Prompt @each-name))
  841.                                  (help #Update-Lib-Help)
  842.                                  (source (tackon LibDir @each-name))
  843.                                  (dest "LIBS:compressors")
  844.                                  (optional nofail askuser)
  845.                                  (confirm)
  846.                         )
  847.                     )
  848.                 )
  849.             )
  850.         )
  851.  
  852.         (complete 97)
  853.  
  854.         ; ** Set Icon tool types and default tools
  855.         ;
  856.  
  857.         (working #Correcting-Icons)
  858.  
  859.         (set IconDir (tackon DBDest "deficons")
  860.         )
  861.  
  862.         (copyfiles (source (tackon IconDir "DiavoloRoot.info"))
  863.                    (dest @default-dest)
  864.                    (newname "Diavolo.info")
  865.         )
  866.  
  867.         (tooltype (dest DBDest)
  868.                   (noposition)
  869.         )
  870.  
  871.         (tooltype (dest (tackon DBDest "MakeBootDisk"))
  872.                   (setdefaulttool "Installer")
  873.                   (settooltype "SCRIPT" "Install Diavolo")
  874.                   (settooltype "MINUSER" "AVERAGE")
  875.                   (settooltype "DEFUSER" "AVERAGE")
  876.                   (settooltype "PRETEND" "FALSE")
  877.                   (settooltype "APPNAME" "Diavolo Backup 3.0")
  878.                   (settooltype "LANGUAGE" @language)
  879.                   (setstack 10000)
  880.         )
  881.  
  882.         (tooltype (dest (tackon IconDir "Def_Filter"))
  883.                   (setdefaulttool (tackon DBDest "Diavolo"))
  884.                   (setstack 10000)
  885.                   (noposition)
  886.         )
  887.  
  888.         (if (exists (tackon IconDir "Def_Event.info")
  889.             )
  890.             (
  891.                 (tooltype (dest (tackon IconDir "Def_Event"))
  892.                           (setdefaulttool (tackon DBDest "DBScheduler"))
  893.                           (settooltype "DIAVOLODIR" DBDest)
  894.                           (settooltype "EVENTDIR" "SchedulerEvents")
  895.                           (setstack 10000)
  896.                           (noposition)
  897.                 )
  898.             )
  899.         )
  900.  
  901.         (tooltype (dest (tackon DBDest "Diavolo"))
  902.                   (settooltype "TOOLPRI" "0")
  903.                   (settooltype "LANGUAGE_2.0" @language)
  904.                   (settooltype "LANGUAGE_2.1" "auto")
  905.                   (settooltype "REFRESHDELAY" "5")
  906.         )
  907.  
  908.         (if (exists (tackon DBDest "DBSchedDaemon.info")
  909.             )
  910.             (
  911.                 (tooltype (dest (tackon DBDest "DBSchedDaemon"))
  912.                           (settooltype "LANGUAGE_2.0" @language)
  913.                           (settooltype "LANGUAGE_2.1" "auto")
  914.                           (settooltype "DIAVOLODIR" DBDest)
  915.                           (settooltype "EVENTDIR" "SchedulerEvents")
  916.                           (settooltype "DONOTWAIT" "1")
  917.                           (settooltype "STARTPRI" "-10")
  918.                           (setstack 10000)
  919.                 )
  920.  
  921.                 (if (askbool (prompt #copy-scheddaemon-prompt)
  922.                              (help #copy-scheddaemon-help)
  923.                              (default 1)
  924.                     )
  925.                     (
  926.                         (copyfiles (source (tackon DBDest "DBSchedDaemon"))
  927.                                    (dest "sys:WBStartup")
  928.                                    (infos)
  929.                         )
  930.                     )
  931.                 )
  932.             )
  933.         )
  934.  
  935.         (if (exists (tackon DBDest "DBScheduler.info")
  936.             )
  937.             (
  938.                 (tooltype (dest (tackon DBDest "DBScheduler"))
  939.                           (settooltype "LANGUAGE_2.0" @language)
  940.                           (settooltype "LANGUAGE_2.1" "auto")
  941.                           (settooltype "DIAVOLODIR" DBDest)
  942.                           (settooltype "EVENTDIR" "SchedulerEvents")
  943.                           (setstack 10000)
  944.                 )
  945.             )
  946.         )
  947.  
  948.         (complete 100)
  949.     )
  950.  
  951.     (
  952.         (set DBDest "")
  953.     )
  954. )
  955.  
  956.  
  957. ; ** Part II: Create emergency disk
  958. ;
  959.  
  960.  
  961. (set emergency (askbool (prompt #create-emergency-disk-prompt)
  962.                         (help #create-emergency-disk-help)
  963.                         (default 1)
  964.                         (choices #emergency-yes #emergency-no)
  965.                )
  966. )
  967.  
  968. (if emergency
  969.     (
  970.         (user 2)
  971.  
  972.         (set SysVersion (getversion))
  973.  
  974.         (set SysVer (/ SysVersion 65536))
  975.  
  976.         (complete 0)
  977.  
  978.  
  979.         ; ** Format disk
  980.         ;
  981.  
  982.  
  983.         (until Ok
  984.             (
  985.                 (set Format (askchoice (prompt #format-select-prompt)
  986.                                        (help #format-select-help)
  987.                                        (choices #format-full #format-quick #format-none)
  988.                                        (default 0)
  989.                             )
  990.                 )
  991.  
  992.                 (if (< Format 2)
  993.                     (
  994.                         (set Ok (askbool (prompt #Ok-To-Format-prompt)
  995.                                          (help #Ok-to-format-help)
  996.                                          (default 0)
  997.                                          (choices #Format-yes #Format-no)
  998.                                 )
  999.                         )
  1000.  
  1001.                         (if Ok
  1002.                             (
  1003.                                 (working #formatting)
  1004.  
  1005.                                 (if (= Format 0)
  1006.                                     (
  1007.                                         (set Fail (run "sys:system/format drive df0: name \"Diavolo Emergency Disk\" ffs noicons")
  1008.                                         )
  1009.                                     )
  1010.                                     (
  1011.                                         (set Fail (run "sys:system/format drive df0: name \"Diavolo Emergency Disk\" ffs noicons quick")
  1012.                                         )
  1013.                                     )
  1014.                                 )
  1015.  
  1016.                                 (if Fail
  1017.                                     (
  1018.                                         (message #format-failed)
  1019.                                         (set Ok 0)
  1020.                                     )
  1021.                                 )
  1022.                             )
  1023.                         )
  1024.                     )
  1025.                     (
  1026.                         (set Ok 1)
  1027.                     )
  1028.                 )
  1029.             )
  1030.         )
  1031.  
  1032.         (complete 10)
  1033.  
  1034.         (set Fail (run "c:install df0:")
  1035.         )
  1036.  
  1037.         (if Fail
  1038.             (
  1039.                 (abort #install-failed)
  1040.             )
  1041.         )
  1042.  
  1043.         (working #create-dirs)
  1044.  
  1045.         (makedir "df0:c")
  1046.  
  1047.         (makedir "df0:libs")
  1048.  
  1049.         (makedir "df0:fonts")
  1050.  
  1051.         (makedir "df0:devs")
  1052.  
  1053.         (if (>= SysVer 39)
  1054.             (makedir "df0:devs/Monitors")
  1055.         )
  1056.  
  1057.         (makedir "df0:devs/Keymaps")
  1058.  
  1059.         (makedir "df0:s")
  1060.  
  1061.         (makedir "df0:Prefs")
  1062.  
  1063.         (makedir "df0:Prefs/Env-Archive")
  1064.  
  1065.         (makedir "df0:Tape Catalogs")
  1066.  
  1067.         (complete 15)
  1068.  
  1069.         (copyfiles (source "c:SetPatch")
  1070.                    (dest "df0:c")
  1071.         )
  1072.  
  1073.         (if (exists "c:loadwb_old")
  1074.             (
  1075.                 (copyfiles (source "c:loadwb_old")
  1076.                            (dest "df0:c")
  1077.                            (newname "loadwb")
  1078.                 )
  1079.             )
  1080.             (
  1081.                 (copyfiles (source "c:loadwb")
  1082.                            (dest "df0:c")
  1083.                 )
  1084.             )
  1085.         )
  1086.  
  1087.         (copyfiles (source "c:copy")
  1088.                    (dest "df0:c")
  1089.         )
  1090.  
  1091.         (copyfiles (source "c:IPrefs")
  1092.                    (dest "df0:c")
  1093.         )
  1094.  
  1095.         (copyfiles (source "c:Assign")
  1096.                    (dest "df0:c")
  1097.         )
  1098.  
  1099.         (copyfiles (source "c:MakeDir")
  1100.                    (dest "df0:c")
  1101.         )
  1102.  
  1103.         (if (exists "libs:68040.library")
  1104.             (
  1105.                 (copyfiles (source "libs:68040.library")
  1106.                            (dest "df0:libs")
  1107.                 )
  1108.             )
  1109.         )
  1110.  
  1111.         (copyfiles (source "libs:diskfont.library")
  1112.                    (dest "df0:libs")
  1113.         )
  1114.  
  1115.         (copyfiles (source "libs:iffparse.library")
  1116.                    (dest "df0:libs")
  1117.         )
  1118.  
  1119.         (copyfiles (source "libs:asl.library")
  1120.                    (dest "df0:libs")
  1121.         )
  1122.  
  1123.         ; ** Just in case my asl is newer
  1124.  
  1125.         (copylib (source (tackon DBDest "libs/asl.library"))
  1126.                  (dest "df0:libs")
  1127.         )
  1128.  
  1129.         (copyfiles (source (tackon DBDest "libs/xpkmaster.library"))
  1130.                    (dest "df0:libs")
  1131.         )
  1132.  
  1133.         (copyfiles (source (tackon DBDest "libs/compressors"))
  1134.                    (dest "df0:libs/compressors")
  1135.                    (pattern "xpk(FEAL|FAST|NUKE).library")
  1136.         )
  1137.  
  1138.         (copyfiles (source (tackon DBDest "fonts"))
  1139.                    (dest "df0:fonts")
  1140.                    (all)
  1141.         )
  1142.  
  1143.         (complete 30)
  1144.  
  1145.         (copyfiles (source (tackon DBDest "Diavolo"))
  1146.                    (dest "df0:")
  1147.                    (infos)
  1148.         )
  1149.  
  1150.         (complete 70)
  1151.  
  1152.         (if (>= SysVer 39)
  1153.             (
  1154.                 (copyfiles (prompt #copy-monitors-prompt)
  1155.                            (help #copy-monitors-help)
  1156.                            (source "devs:monitors")
  1157.                            (dest "df0:devs/monitors")
  1158.                            (pattern "~(#?.info|VGAOnly)")
  1159.                            (confirm)
  1160.                 )
  1161.  
  1162.                 (if (exists "libs:cybergraphics.library")
  1163.                     (
  1164.                         (copyfiles (source "libs:")
  1165.                                    (dest "df0:libs")
  1166.                                    (pattern "Cyber(graphics|layers|intuition).library")
  1167.                         )
  1168.  
  1169.                         (if (exists "env:CyberGraphics")
  1170.                             (copyfiles (source "env:CyberGraphics")
  1171.                                        (dest "df0:prefs/Env-Archive/CyberGraphics")
  1172.                                        (all)
  1173.                             )
  1174.                         )
  1175.  
  1176.                         (copyfiles (source "libs:datatypes.library")
  1177.                                    (dest "df0:libs")
  1178.                         )
  1179.                     )
  1180.                 )
  1181.             )
  1182.         )
  1183.  
  1184.         (complete 80)
  1185.  
  1186.         (if (exists "env:sys/ScreenMode.prefs")
  1187.             (
  1188.                 (copyfiles (source "env:sys/ScreenMode.prefs")
  1189.                            (dest "df0:prefs/Env-Archive/sys")
  1190.                 )
  1191.             )
  1192.         )
  1193.  
  1194.         (if (exists "env:sys/Palette.prefs")
  1195.             (
  1196.                 (copyfiles (source "env:sys/Palette.prefs")
  1197.                            (dest "df0:prefs/Env-Archive/sys")
  1198.                 )
  1199.             )
  1200.         )
  1201.  
  1202.         (if (exists "env:sys/input.prefs")
  1203.             (
  1204.                 (copyfiles (source "env:sys/input.prefs")
  1205.                            (dest "df0:prefs/Env-Archive/sys")
  1206.                 )
  1207.             )
  1208.         )
  1209.  
  1210.         (set Monitors "")
  1211.  
  1212.         (if (>= SysVer 39)
  1213.             (
  1214.                 (foreach "df0:devs/monitors" "~(#?.info)"
  1215.                     (
  1216.                         (set Monitors (cat Monitors
  1217.                                            "  DEVS:Monitors/"
  1218.                                            @each-name
  1219.                                            "\n"
  1220.                                       )
  1221.                         )
  1222.                     )
  1223.                 )
  1224.             )
  1225.         )
  1226.  
  1227.         (textfile (dest "df0:s/startup-sequence")
  1228.                   (append (cat "c:SetPatch > nil:\n"
  1229.                                "makedir ram:env\n"
  1230.                                "assign env: ram:env\n"
  1231.                                "copy envarc: env: all quiet\n"
  1232.                                "assign locale: sys:\n"
  1233.                                "assign KEYMAPS: DEVS:Keymaps\n"
  1234.                                "if exists DEVS:Monitors\n"
  1235.                                Monitors
  1236.                                "endif\n"
  1237.                                "iprefs\n"
  1238.                                "loadwb\n"
  1239.                                "endcli > nil:\n"
  1240.                           )
  1241.                   )
  1242.         )
  1243.  
  1244.         (complete 90)
  1245.  
  1246.         (if (exists (tackon DBDest "DiavoloStandard.prefs"))
  1247.             (
  1248.                 (copyfiles (source (tackon DBDest "DiavoloStandard.prefs"))
  1249.                            (dest "df0:")
  1250.                 )
  1251.  
  1252.                 (message #Prefs-available)
  1253.             )
  1254.             (
  1255.                 (message #Prefs-not-available)
  1256.             )
  1257.         )
  1258.  
  1259.         (copyfiles (source "Devs:Keymaps")
  1260.                    (dest "df0:Devs/Keymaps")
  1261.                    (pattern "~(#?.info)")
  1262.         )
  1263.  
  1264.         (complete 100)
  1265.  
  1266.         (message #emergency-disk-finished)
  1267.     )
  1268. )
  1269.  
  1270. (if Installed
  1271.     (exit (quiet))
  1272.     (exit)
  1273. )
  1274.  
  1275.